home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Business Assistant
/
Business Assistant.iso
/
checkb
/
db3chk21
/
chkadd.prg
< prev
next >
Wrap
Text File
|
1987-05-26
|
3KB
|
108 lines
** CHKADD.PRG
** PROGRAM TO ADD NEW TRANSACTIONS TO CHECK.DBF
SET PROCEDURE TO SCREENS
STORE DATE() TO MDATE
STORE SPACE(20) TO MPAYEE
STORE SPACE(19) TO MMEMO
STORE 1 TO MOS
STORE "C" TO MTRXTYPE
STORE 0 TO MCHECKS, MDEPOSITS
STORE "N" TO MCHANGE, MMORE
STORE "Y" TO MOK
USE CHECK
RESTORE FROM C:\DB\CHECKS\CHKCOUNT ADDITIVE
IF RECCOUNT() > MCOUNT + 10
CLEAR
@ 10,3 TO 13,70
@ 11,5 SAY "I think it's time to backup your data files. . ."
@ 12,5 SAY " Is this OK with you ? " GET MOK PICTURE "!"
READ
IF MOK = "Y"
CLEAR
@ 10,3 TO 13,70
@ 11,8 SAY " Please wait while backups are performed . . ."
DO CHKBAK
ENDIF
ENDIF
DO WHILE .T.
CLEAR
@ 10,3 TO 13,70 && SMALL BOX
@ 11,8 SAY " Are you adding (C)hecks or (D)eposits ? " GET MTRXTYPE PICTURE "!"
READ
CLEAR
IF MTRXTYPE <> "C" .AND. MTRXTYPE <> "D"
LOOP
ENDIF
@ 2,0 TO 18,79 DOUBLE && DOUBLE LINED BOX
@ 4,2 SAY "John & Mary Jones "
@ 5,2 SAY "Account 98765432"
IF MTRXTYPE = "C"
@ 3,50 SAY "Check Date "
ENDIF
IF MTRXTYPE = "D"
@ 3,48 SAY "Deposit Date "
ENDIF
@ 3,62 SAY Date()
@ 3,62 GET MDATE
IF MTRXTYPE = "C"
RESTORE FROM C:\DB\CHECKS\CHKLAST ADDITIVE
MREF = MREF + 1
@ 5,50 SAY "Ck. Number " GET MREF PICTURE "9999999"
@ 7,55 SAY "$ " GET MCHECKS PICTURE "999999.99"
@ 8,2 SAY "Payable to : "
@ 9,2 GET MPAYEE PICTURE "@!"
@ 11,2 SAY "Memo " && GET MMEMO PICTURE "@!"
@ 12,2 GET MMEMO PICTURE "@!"
ENDIF
IF MTRXTYPE = "D"
D = DTOC(MDATE)
MREF = VAL(SUBSTR(D,1,2)+SUBSTR(D,4,2)+SUBSTR(D,7,2)) && DEPOSIT DATE
@ 5,38 SAY "Reference No. (if any) " GET MREF PICTURE "9999999"
@ 7,55 SAY "$ " GET MDEPOSITS PICTURE "999999.99"
@ 8,2 SAY "Received from : "
@ 9,2 GET MPAYEE PICTURE "@!"
@ 11,2 SAY "Memo " && GET MMEMO PICTURE "@!"
@ 12,2 GET MMEMO PICTURE "@!"
ENDIF
@ 15,20 SAY "Is Item O/S (0 for No <CR> if Yes) ? " GET MOS PICTURE "9" RANGE 0,1
READ
@ 19,8 SAY "Any changes ? (Y/N) " GET MCHANGE PICTURE "!"
READ
IF MCHANGE = "Y"
STORE "N" TO MCHANGE
LOOP
ENDIF
IF MCHANGE = "N"
APPEND BLANK
REPLACE REF WITH MREF, DATE WITH MDATE, PAYEE WITH MPAYEE;
CHECKS WITH MCHECKS,DEPOSITS WITH MDEPOSITS,MEMO WITH MMEMO;
OS WITH MOS
STORE DATE() TO MDATE
STORE SPACE(20) TO MPAYEE
STORE SPACE(19) TO MMEMO
STORE 1 TO MOS
STORE 0 TO MCHECKS, MDEPOSITS && MREF NOW COMING FROM CHKLAST.MEM
STORE "N" TO MCHANGE
SET SAFETY OFF
IF MTRXTYPE = "C"
SAVE TO C:\DB\CHECKS\CHKLAST ALL LIKE MREF
ENDIF
SET SAFETY ON
ENDIF
@ 19,8 SAY "More to add ? (Y/N) " GET MMORE PICTURE "!"
READ
IF MMORE = "Y"
MMORE = "N" && RESET TO "NO MORE TO ADD"
LOOP
ENDIF
EXIT
ENDDO
CLEAR
RETURN